home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / 2924.ZIP / DMLXREF.ARC / GEN.INT < prev    next >
Encoding:
Text File  |  1988-12-22  |  7.9 KB  |  159 lines
  1. CONST
  2.   ON  = TRUE;
  3.   OFF = FALSE;
  4.   T   = TRUE;
  5.   F   = FALSE;
  6.  
  7.   _VIDEO   = $10;                    { BIOS video interrupt           }
  8.   _KEYBD   = $16;                    { BIOS keyboard interrupt        }
  9.   _DOS     = $21;                    { DOS function interrupt         }
  10.  
  11.   Read_Only  = 0;
  12.   Write_Only = 1;
  13.   Read_Write = 2;
  14.  
  15. TYPE
  16.   BytePtr    = ^BYTE;
  17.   IntPtr     = ^INTEGER;
  18.   WordPtr    = ^WORD;
  19.   LongIntPtr = ^LONGINT;
  20.   RealPtr    = ^REAL;
  21.   DoublePtr  = ^DOUBLE;
  22.   BooleanPtr = ^BOOLEAN;
  23.   CharPtr    = ^CHAR;
  24.   StrPtr     = ^STRING;
  25.  
  26. VAR
  27.   D_ForeColor     : WORD;
  28.   D_StatColor     : WORD;
  29.   D_ErrColor      : WORD;
  30.   D_SurroundColor : WORD;
  31.   Versions        : ARRAY[0..4] OF REAL;
  32.  
  33. {.PA}
  34.  
  35. (**************************************************************************)
  36. (*                                                                        *)
  37. (*          1)   System programming extensions                            *)
  38. (*                                                                        *)
  39. PROCEDURE Abend(ExitCode : BYTE; ProcAddr : POINTER);
  40. PROCEDURE CallProcedure(ProcAddr : POINTER);
  41. PROCEDURE CallProcedureX(ProcAddr : POINTER; I1 : INTEGER; VAR S1 : STRING; VAR I2 : INTEGER);
  42. FUNCTION LongAddr(Seg, Ofs : WORD) : LONGINT;
  43. FUNCTION Same (VAR Var1, Var2; Len : WORD) : BOOLEAN;
  44. (*                                                                        *)
  45. (**************************************************************************)
  46.  
  47. (**************************************************************************)
  48. (*                                                                        *)
  49. (*          2)   File I/O and Protection                                  *)
  50. (*                                                                        *)
  51. FUNCTION ReadOnlyExist(FileName : STRING) : BOOLEAN;
  52. FUNCTION ReadOnlyGetAttr(FileName : STRING) : BOOLEAN;
  53. FUNCTION ReadOnlySetAttr(FileName : STRING ; Flag : BOOLEAN) : INTEGER;
  54. FUNCTION FileOpen(VAR GenFileDummy;
  55.                       GenFileRecLen   : WORD;
  56.                       GenFileOpenMode : WORD) : INTEGER;
  57. FUNCTION FileAssignAndOpen (    GenFileName     : STRING;
  58.                             VAR GenFileDummy;
  59.                                 GenFileRecLen   : WORD;
  60.                                 GenFileOpenMode : WORD) : BOOLEAN;
  61. (*                                                                        *)
  62. (**************************************************************************)
  63.  
  64. (**************************************************************************)
  65. (*                                                                        *)
  66. (*          3)   Text Encryption                                          *)
  67. (*                                                                        *)
  68. FUNCTION EnCrypt (Orig : STRING) : STRING;
  69. FUNCTION DeCrypt (Orig : STRING) : STRING;
  70. (*                                                                        *)
  71. (**************************************************************************)
  72.  
  73. (**************************************************************************)
  74. (*                                                                        *)
  75. (*          4)   General Purpose Video                                    *)
  76. (*                                                                        *)
  77. PROCEDURE GenBeep (Frequency, Duration : WORD);
  78. FUNCTION ColorMonitorInstalled : BOOLEAN;
  79. PROCEDURE Cursor (Visible : BOOLEAN);
  80. PROCEDURE CursorInsertSize;
  81. PROCEDURE CursorOverwriteSize;
  82. FUNCTION ScrBackCursorColor : WORD;
  83. FUNCTION ScrForeCursorColor : WORD;
  84. (*                                                                        *)
  85. (**************************************************************************)
  86.  
  87. (**************************************************************************)
  88. (*                                                                        *)
  89. (*          5)   Video Messages                                           *)
  90. (*                                                                        *)
  91. PROCEDURE Pause;
  92. PROCEDURE ScrErrMsg (Message : STRING );
  93. PROCEDURE ScrStatMsg (Message : STRING);
  94. FUNCTION ScrYN (Message : STRING) : BOOLEAN;
  95. FUNCTION ScrYouAreSure (Message : STRING ) : BOOLEAN;
  96. PROCEDURE Wait (DispWait : BOOLEAN);
  97. (*                                                                        *)
  98. (**************************************************************************)
  99.  
  100. (**************************************************************************)
  101. (*                                                                        *)
  102. (*          6)   Disk and Memory Sizes                                    *)
  103. (*                                                                        *)
  104. FUNCTION BytesOnDiskFree(Drive : CHAR) : LONGINT;
  105. FUNCTION FreeDOSMem : LONGINT;
  106. FUNCTION SizeOfMem : LONGINT;
  107. FUNCTION StackAvail : WORD;
  108. (*                                                                        *)
  109. (**************************************************************************)
  110.  
  111. (**************************************************************************)
  112. (*                                                                        *)
  113. (*          7)   Instruction Timing                                       *)
  114. (*                                                                        *)
  115. FUNCTION TimeElapsed : REAL;
  116. FUNCTION TimeTotal(Start , Stop : REAL) : STRING;
  117. (*                                                                        *)
  118. (**************************************************************************)
  119.  
  120. (**************************************************************************)
  121. (*                                                                        *)
  122. (*          8)   General Purpose File                                     *)
  123. (*                                                                        *)
  124. FUNCTION Exist (FileName: STRING) : BOOLEAN;
  125. FUNCTION LinesInFile (FileName : STRING) : INTEGER;
  126. FUNCTION GetFileDateAndTimeString  (FileName : STRING) : STRING;
  127. FUNCTION GetFileDateAndTimeLongInt (FileName : STRING) : LONGINT;
  128. (*                                                                        *)
  129. (**************************************************************************)
  130.  
  131. (**************************************************************************)
  132. (*                                                                        *)
  133. (*          9)   Math                                                     *)
  134. (*                                                                        *)
  135. FUNCTION Power (X, Y : REAL) : REAL;
  136. FUNCTION Log (x : REAL) : REAL;
  137. (*                                                                        *)
  138. (**************************************************************************)
  139.  
  140. (**************************************************************************)
  141. (*                                                                        *)
  142. (*          10)  DOS and Environment                                      *)
  143. (*                                                                        *)
  144. FUNCTION DOSVersionR : REAL;
  145. FUNCTION WhoAmI : STRING;
  146. FUNCTION GetEnvString(EnvVar : STRING) : STRING;
  147. (*                                                                        *)
  148. (**************************************************************************)
  149.  
  150. (**************************************************************************)
  151. (*                                                                        *)
  152. (*          11)  Version Control                                          *)
  153. (*                                                                        *)
  154. FUNCTION GetDMLVersion(Module : WORD) : STRING;
  155. FUNCTION GetDMLVersions : STRING;
  156. (*                                                                        *)
  157. (**************************************************************************)
  158.  
  159.